1 CLS:INPUTA:IFA=1THENA=255ELSEIFA=2THENA=100ELSEGOTO1
2 CALLPOKE(50688,162,5,45,162,A,45,10):CALLEXEC(50688)